<!--#include file="./easyasp/easp.asp" -->
<!--#include file="popasp.func.asp" -->
<!--#include file="popasp_mvc.class.asp" -->
<%
private dServerVars : set dServerVars = Server.CreateObject("Scripting.Dictionary")
' 请求时间
dServerVars("REQUEST_TIME") = now()
' 计时用的开始时间
dServerVars("beginTime") = timer()
Dim POP_MVC : Set POP_MVC = New POPASP_MVC '实例化Easp
call POP_MVC.init

'将dServerVars变量赋值给POP_MVC.dG_，并销毁该变量
set POP_MVC.dG_ = POP_MVC.Dict.clone(dServerVars)
set dServerVars= nothing

' 记录加载文件时间
Call G_("loadTime")
%>
<%'页面加载完毕后销毁POP_MVC实例%>
<script language="vbscript" runat="server">If TypeName(POP_MVC) = "POPASP_MVC" Then Set POP_MVC = Nothing</script>